home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / misc~1 / 2 / finance.bas < prev    next >
Encoding:
BASIC Source File  |  1985-11-19  |  16.4 KB  |  380 lines
  1. 0     ' AUTHOR:  Rich Noe             Date Created  11-23-85
  2. 1     title$=" Financial Pak "
  3. 2     title$=chr$(32)+chr$(14)+chr$(15)+title$
  4. 3     title$=title$+chr$(14)+chr$(15)+chr$(32)
  5. 4     poke systab+24,1
  6. 5     a#=gb
  7. 6     gintin=peek(a#+8)
  8. 7     poke gintin+0,peek(systab+8)
  9. 8     poke gintin+2,2
  10. 9     s#=gintin+4
  11. 10    title$=title$+chr$(0)
  12. 11    poke s#,varptr(title$)
  13. 12    gemsys(105)
  14. 13    poke systab+24,0
  15. 15    DIM Z$(5)
  16. 20    DIM M$(5)
  17. 21    PR$="####.##%"
  18. 22    V$="$$#,###,###,###.##"
  19. 23    I$="###.##%"
  20. 26    I2$="##"
  21. 27    Y$="Y":N$="N"
  22. 30    DEFDBL J,B,R,A,Q,P,T
  23. 40    fullw 2:clearw 2:gotoxy 0,0
  24. 50    PRINT
  25. 70    PRINT
  26. 80    ?"   (1) Future Value of Investment         (11) Depreciated Investment"
  27. 100   ?"   (2) Future Value of Annuity            (12) Salvage Value year end"
  28. 120   ?"   (3) Future Value of Savings            (13) Discounted Comm. Paper"
  29. 140   ?"   (4) Withdrawals From Investment        (14) Loan Principal"
  30. 160   ?"   (5) Minimum Investment for Income      (15) Loan Payment Schedules"
  31. 180   ?"   (6) Income From Investments            (16) Final Loan Payments"
  32. 190   ?"   (7) Nominal Interest Rates             (17) Remaining Loan Balance"
  33. 210   ?"   (8) Effective Interest Rates           (18) Loan Repayment periods"
  34. 230   ?"   (9) Earned Interest Table              (19) Loan Ann. Interest Rate"
  35. 250   ?"  (10) Annual Depreciation Rate           (20) Mortgage Amortization"
  36. 260   PRINT:PRINT
  37. 270   INPUT "          Select a Program by Number (0 to Exit): ";Z
  38. 280   IF Z=0 THEN 5000
  39. 290   ON Z GOTO 330,510,690,880,1100,1330,1560,1780,1960,2030,2230,2420,2610
  40. 300   IF Z>13 THEN Z1=Z-13
  41. 310   ON Z1 GOTO 2820,2980,3170,3410,3670,3850,3910
  42. 320   GOTO 40
  43. 330   GOSUB 4500
  44. 340   PRINT"                         #1 Future Value of Investment"
  45. 350   GOTOXY 1,4:INPUT "Enter the Initial Value of Investment: ";P
  46. 355   GOTOXY 45,4:PRINT USING V$;P
  47. 360   INPUT " Enter Nominal Interest Rate: ";I:GOTOXY 56,5:PRINT USING I$;I
  48. 410   PRINT:INPUT " Enter Number of Compounding Periods Each Year: ";N
  49. 415   GOTOXY 59,7:PRINT N;" PER"
  50. 420   PRINT
  51. 430   INPUT " Enter Number of Years for the Investment: ";Y:GOTOXY 59,9:PRINT Y
  52. 435   GOTOXY 59,9:PRINT Y;" YRS"
  53. 440   PRINT
  54. 450   I=I/N/100
  55. 460   T=P*(I+1)^(N*Y):PRINT
  56. 470   PRINT" Future Value of This Investment is: ";:GOTOXY 45,12:PRINT USING V$;T
  57. 475   COLOR 2,0,1:GOTOXY 46,12:PRINT USING V$;T:COLOR 1,0,1
  58. 480   GOTOXY 1,17:INPUT "Want Another Future Value Calculation (Y or N): ";ANS$
  59. 490   IF LEFT$(ANS$,1)=Y$ THEN 330 ELSE 40
  60. 510   GOSUB 4500:PRINT"                   Future Value of Regular Deposits - Annunity"
  61. 550   GOTOXY 1,3:INPUT "Enter Amount of Regular Deposit: ";R
  62. 560   GOTOXY 45,3:PRINT USING V$;R
  63. 570   GOTOXY 1,5:INPUT "Enter Nominal Interest Rate: ";I
  64. 580   GOTOXY 56,5:PRINT USING I$;I
  65. 590   PRINT:INPUT " Enter Number of Deposits Each Year: ";N:GOTOXY 59,7:PRINT N
  66. 610   PRINT:INPUT " Enter the Number of Years: ";Y:GOTOXY 59,9:PRINT Y
  67. 620   I=I/N/100
  68. 630   T=R*((I+1)^(N*Y)-1)/I
  69. 640   ?:?
  70. 650   ?:?" FUTURE VALUE IS: ";:GOTOXY 45,13:COLOR 2,0,1:PRINT USING V$;T
  71. 655   COLOR 1,0,1
  72. 660   GOTOXY 1,16:INPUT "Another Future Value Calculation (Y or N): ";ANS$
  73. 670   IF LEFT$(ANS$,1)="y" THEN 510 ELSE CLEARW 2:GOTOXY O,O: GOTO 40
  74. 690   GOSUB 4500
  75. 700   PRINT "                    Future Value of Annuity or Savings Account"
  76. 710   GOSUB 4510
  77. 720   GOTOXY 1,4:INPUT " Enter Desired Future Value:";T:GOTOXY 45,4:?USING V$;T
  78. 740   INPUT " Enter Nominal Interest Rate: ";I:GOTOXY 56,5:PRINT USING I$;I
  79. 750   PRINT:INPUT " Enter Number of Deposits Per Year: ";N:GOTOXY 59,7:PRINT N
  80. 780   PRINT:INPUT " Enter the Number of Years: ";Y:GOTOXY 59,9:PRINT Y
  81. 790   I=I/N/100
  82. 800   R=T*I/((I+1)^(N*Y)-1)
  83. 802   R$=STR$(R):T$=STR$(T)
  84. 804   L1=LEN(R$):L2=LEN(T$)
  85. 810   PRINT:PRINT:PRINT" Regular deposits of: ";:GOTOXY (22-(13-L1)),12
  86. 815   PRINT USING V$;R;:PRINT" will yield:";:PRINT USING V$;T:PRINT" in: ";
  87. 816   PRINT Y;" years"
  88. 820   GOTOXY 1,16:INPUT "Another run (Y or N): ";ANS$
  89. 830   IF LEFT$(ANS$,1)="Y" THEN 690 ELSE 40
  90. 880   GOSUB 4500:?"                      Regular Withdrawals from an Investment"
  91. 910   GOTOXY 1,2:INPUT "Amount of initial investment: ";P
  92. 915   GOTOXY 46,2:PRINT USING V$;P
  93. 920   INPUT " Enter nominal interest rate: ";I:GOTOXY 56,3:?USING I$;I
  94. 940   PRINT:INPUT " Enter the number of withdrawals each year: ";N
  95. 945   GOTOXY 59,5:PRINT N
  96. 950   PRINT:INPUT " Enter the number of years: ";Y:GOTOXY 59,7:PRINT Y
  97. 970   I=I/N/100
  98. 980   R=P*(I/((I+1)^(N*Y)-1)+I)
  99. 990   GOTOXY 1,8:PRINT" You may withdraw: ";:PRINT USING V$;R;
  100. 995   PRINT" from your account: ";N:PRINT"times per year for : ";Y;
  101. 996   PRINT" years without reducing your initial investment"
  102. 1070  GOTOXY 1,14:INPUT "Do you want another calculation (Y or N): ";ANS$
  103. 1080  IF ANS$="Y" THEN 880 ELSE 40
  104. 1100  GOSUB 4500:?"                   INVESTMENT REQ. TO PROVIDE FUTURE VALUE"
  105. 1110  GOTOXY 1,2:INPUT "Enter amount you wish to end up with: ";T
  106. 1111  GOTOXY 45,2:PRINT USING V$;T
  107. 1120  INPUT " Enter the number of compounding periods each year: ";N
  108. 1125  GOTOXY 59,3:PRINT N
  109. 1130  PRINT:INPUT " Enter the number of years for this investment: ";Y
  110. 1135  GOTOXY 59,5:PRINT Y
  111. 1140  PRINT:INPUT " Enter the nominal interest rate: ";I:GOTOXY 59,7:PRINT I
  112. 1220  I1=I
  113. 1230  I=I/N/100
  114. 1240  P=T/(I+1)^(N*Y)
  115. 1250  GOTOXY 1,12:PRINT"You must invest: ";:PRINT USING V$;P;
  116. 1255  PRINT" to yield:    ";:PRINT USING V$;T
  117. 1260  GOTOXY 1,14:INPUT "Do you want to make another calculation: ";ANS$
  118. 1270  IF ANS$="Y" THEN 1100 ELSE 40
  119. 1330  GOSUB 4500:?"                         MINIMUM INVESTMENT FOR INCOME"
  120. 1340  GOTOXY 1,2
  121. 1380  INPUT "Enter number of withdrawals each year: ";N
  122. 1385  GOTOXY 59,2:PRINT N
  123. 1390  INPUT " Enter amount of each withdrawal: ";R:GOTOXY 45,3:PRINT USING V$;R
  124. 1420  INPUT " Enter the nominal interest rate: ";I:GOTOXY 56,4:PRINT USING I$;I
  125. 1430  PRINT:INPUT " Withdrawal to occur for how many years: ";Y:GOTOXY 59,6:? Y
  126. 1450  I1=I
  127. 1460  I=I/100
  128. 1470  P=R*N/I*(1-1/((1+I/N)^(N*Y)))
  129. 1490  GOTOXY 1,12:PRINT"A minimum investment of: ";:PRINT USING V$;P;
  130. 1495  PRINT" will yield your desired return"
  131. 1500  GOTOXY 1,14:INPUT "Do you want another calculation (Y or N): ";ANS$
  132. 1505  PRINT I2
  133. 1510  IF ANS$="Y" THEN 1330 ELSE 40
  134. 1560  GOSUB 4500:PRINT"                     NOMINAL INTEREST ON INVESTMENTS"
  135. 1570  GOTOXY 1,2:INPUT "Enter the amount of the principal: ";P
  136. 1575  GOTOXY 45,2:PRINT USING V$;P
  137. 1580  INPUT " Enter total amount of investment: ";T:GOTOXY 45,3:PRINT USING V$;T
  138. 1630  INPUT " Enter the number of years of the investment: ";Y:GOTOXY 59,4:? Y
  139. 1670  PRINT:INPUT " Enter the compounding periods each year: ";N:GOTOXY 59,6:? N
  140. 1680  I2=N*((T/P)^(1/(N*Y))-1)*100
  141. 1700  GOTOXY 1,12:?"The nominal interest rate for the above parameters is: ";
  142. 1705  PRINT I2
  143. 1710  GOTOXY 1,14:INPUT "Do you want another calculation (Y or N): ";ANS$
  144. 1720  IF ANS$="Y" THEN 1560 ELSE 40
  145. 1780  GOSUB 4500:?"                        EFFECTIVE INTEREST ON INVESTMENTS"
  146. 1830  GOTOXY 1,2:INPUT "Enter the amount of the initial investment";P:GOTOXY 45,2
  147. 1835  PRINT USING V$;P
  148. 1850  INPUT " Enter the desired future value: ";T:GOTOXY 45,3:PRINT USING V$;T
  149. 1870  INPUT " Enter the life of the investment in years";Y
  150. 1875  GOTOXY 56,4:PRINT Y;"years"
  151. 1880  A=((T / P) ^ (1 / Y) - 1) * 100
  152. 1900  GOTOXY 1,12:?"The effective annual interest rate of the investment is:";
  153. 1905  PRINT USING PR$;A
  154. 1930  GOTOXY 1,14:INPUT "Do you want to run another (Y or N): ";ANS$
  155. 1935  IF LEFT$(ANS$,1)=Y$ THEN 1780 ELSE 40
  156. 1960  REM  EARNED INTEREST TABLE
  157. 1970  GOSUB 4500
  158. 1980  PRINT "#9 EARNED INTEREST TABLE FOR INVESTMENT"
  159. 2010  PRINT "  ******** UNDER CONSTRUCTION ********"
  160. 2020  FOR I = 1 TO 2000: NEXT I: GOTO 40
  161. 2030  REM  DEPRECIATION RATE ON INVESTMENT
  162. 2040  GOSUB 4500
  163. 2050  PRINT "                   ANNUAL DEPRECIATION RATE OF AN INVESTMENT"
  164. 2080  GOTOXY 1,2:INPUT "Enter the Original Price of the Item";P
  165. 2090  GOTOXY 45,2:PRINT USING V$;P
  166. 2100  INPUT " Enter the Resale Price of the Item";T:GOTOXY 45,3:PRINT USING V$;T
  167. 2120  INPUT " Enter the Item's Life in Years";Y:GOTOXY 59,4:PRINT USING I2$;Y
  168. 2140  D = 100 * (1 - (T / P) ^ (1 / Y))
  169. 2160  GOTOXY 1,12:PRINT "If You Purchased This Item for:";:PRINT USING V$;P;
  170. 2170  ?" and Sold it ";:? using I2$;Y;:?" Years Later_"
  171. 2180  PRINT " for: ";:PRINT USING V$;T;:?", the Actual Depreciation Rate is: ";
  172. 2190  PRINT USING PR$;D
  173. 2200  GOTOXY 1,15:INPUT "Another Run (Y or N): ";ANS$
  174. 2210  IF  LEFT$ (ANS$,1) = "Y" THEN 2040 ELSE 40
  175. 2230  REM  CALCULATE THE AMOUNT OF DEPREC OF AN ITEM
  176. 2240  GOSUB 4500
  177. 2250  PRINT "                        AMOUNT DEPRECIATED WITHIN A YEAR"
  178. 2270  GOTOXY 1,2:INPUT "Enter the Original Price of the Item:";P
  179. 2275  GOTOXY 45,2:PRINT USING V$;P
  180. 2290  INPUT " Enter Number of years";K%:GOTOXY 59,3:PRINT K%
  181. 2300  INPUT " What percent do you want to depreciate";I:gotoxy 59,4:print i
  182. 2310  PRINT 
  183. 2320  I = I / 100
  184. 2330  PRINT : FOR Y% = 1 TO K%
  185. 2340  D = P * I * (1 - I) ^ (Y% - 1)
  186. 2350  PRINT "YEAR #";Y%;"DEPRECIATION IS $"; D
  187. 2385  next y%
  188. 2390  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  189. 2400  IF  LEFT$ (Y$,1) = "Y" THEN  2230 ELSE 40
  190. 2420  GOSUB 4500
  191. 2430  PRINT "   #12 CALCULATE THE SALVAGE VALUE"
  192. 2440  PRINT "              OF AN ITEM..."
  193. 2450  PRINT
  194. 2460  INPUT "ENTER THE ORIGINAL PRICE OF THE ITEM";P
  195. 2470  PRINT 
  196. 2480  INPUT "ENTER THE ITEM'S DEPRECIATION RATE";I
  197. 2490  PRINT 
  198. 2500  INPUT "ENTER THE NUMBER OF YEARS";K%
  199. 2510  FOR Y% = 1 TO K%
  200. 2520  S =  P * (1 - I / 100) ^ Y%
  201. 2530  PRINT "YEAR #";Y%;"SALVAGE VALUE IS $";S
  202. 2575  next y%
  203. 2580  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  204. 2590  IF  LEFT$ (Y$,1) = "Y" THEN  goto 2420 else 40
  205. 2600  GOTO 40
  206. 2610  REM  FIND AMOUNT OF DISC PAPER
  207. 2620  GOSUB 4500
  208. 2630  PRINT "#13 CALCULATE THE NET COST OF DISCOUNTED"
  209. 2640  PRINT "                 PAPER.."
  210. 2660  PRINT 
  211. 2670  INPUT "ENTER THE FUTURE VALUE OF THE NOTE";T
  212. 2680  INPUT "ENTER THE DISCOUNT RATE";D
  213. 2690  PRINT 
  214. 2700  INPUT "ENTER THE NUMBER OF DAYS TO MATURITY";N
  215. 2710  D = D / 100
  216. 2720  D1 = T * D * N / 360
  217. 2730  PRINT 
  218. 2740  PRINT "IF YOU PURCHASE A NOTE WORTH $";T
  219. 2750  PRINT "                DUE IN";N;"DAYS"
  220. 2760  PRINT "AT A DISCOUNT RATE OF";D * 100;"PERCENT,"
  221. 2770  PRINT "THE DISCOUNT AMOUNT WILL BE $";D1
  222. 2780  PRINT "AND THE COST WILL BE $";T - D1;" ."
  223. 2790  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  224. 2800  IF  LEFT$ (Y$,1) = "Y" THEN  GOTO 2610 ELSE 40
  225. 2820  GOSUB 4500
  226. 2830  PRINT  TAB( 5)"#14  PRINCIPAL ON A LOAN"
  227. 2840  PRINT 
  228. 2850  PRINT D$
  229. 2860  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  230. 2870  PRINT 
  231. 2880  INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  232. 2890  PRINT 
  233. 2900  INPUT "WHAT IS THE LOAN ANNUAL INTEREST RATE";I
  234. 2910  PRINT 
  235. 2920  INPUT "ENTER THE LIFE OF THE LOAN IN YEARS";Y
  236. 2930  P = R * N * (1 - 1 / ((I / 100) / N + 1) ^ (N * Y)) / (I / 100)
  237. 2940  ?"The principal on this loan is: ";:?USING "$$#,###,###.##";P
  238. 2950  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  239. 2960  IF  LEFT$ (Y$,1) = "Y" THEN  GOTO 2820 ELSE 40
  240. 2980  rem
  241. 2990  GOSUB 4500:PRINT "    #15 REGULAR PAYMENT ON A LOAN.."
  242. 3000  PRINT 
  243. 3020  PRINT "WHAT IS THE LIFE OF THE LOAN IN YEARS"
  244. 3030  INPUT Y
  245. 3040  INPUT"WHAT IS THE ANNUAL INTEREST RATE ";I
  246. 3050  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  247. 3060  INPUT "WHAT IS THE LOAN PRINCIPAL AMOUNT";P
  248. 3070  PRINT : PRINT :R = ((I / 100) * P / N) / (1 - 1 / ((I / 100) / N + 1) ^ (N * Y))
  249. 3080  I1 = I
  250. 3090  PRINT "Regular payments of ";:?USING "$$#,###,###.##";R;
  251. 3100  PRINT " made ";N;" times each year"
  252. 3110  PRINT "are required to satisfy"
  253. 3120  PRINT "a loan of ";:?USING "$$#,###,###.##";P;: PRINT " for a period of ";
  254. 3125  PRINT USING "###";Y;:PRINT" years"
  255. 3130  PRINT "at an interest rate of";I1;" pecent per annum."
  256. 3140  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  257. 3150  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2980
  258. 3160  GOTO 40
  259. 3170  gosub 4500
  260. 3180  PRINT  TAB( 10)"#16  LAST PAYMENT ON A LOAN"
  261. 3190  PRINT 
  262. 3210  INPUT "WHAT IS THE LIFE OF THE LOAN IN YEARS";Y
  263. 3220  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  264. 3230  PRINT 
  265. 3240  INPUT "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R
  266. 3250  PRINT 
  267. 3260  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  268. 3270  PRINT 
  269. 3280  INPUT "ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P
  270. 3290  PRINT :I1 = I:I = I / 100:BO = P
  271. 3300  IF N * Y > 100 THEN  PRINT  TAB( 20)"WORKING THE PROBLEM"
  272. 3310  FOR K = 1 TO N * Y
  273. 3320  I2 =  INT ((BO * I / N) * 100 + .5) / 100
  274. 3330  A = R - I2
  275. 3340  BO = BO - A
  276. 3350  NEXT K
  277. 3360  PRINT "THE LAST PAYMENT FOR THIS LOAN,"
  278. 3370  PRINT "WILL BE $"; INT ((R + BO) *R - I2
  279. 3340  BO = BO - A
  280. 3350  NEXT K
  281. 3360  PRINT "THE LAST PAYMENT FOR THIS LOAN,"
  282. 3370  PRINT "WILL BE $"; INT ((R + BO) *R - I2
  283. 3340  BO = BO - A
  284. 3350  NEXT K
  285. 3360  PRINT "THE LAST PAYMENT FOR THIS LOAN,"
  286. 3370  PRINT "WILL BE $"; INT ((R + BO) * 100 + .5) / 100
  287. 3380  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  288. 3390  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 43 100 + .5) / 100
  289. 3380  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  290. 3390  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3170
  291. 3400  GOTO 40
  292. 3410  gosub 4500
  293. 3420  PRINT "     #17 REMAINING BALANCE ON A LOAN"
  294. 3430  PRINT 
  295. 3450  INPUT "ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N
  296. 3460  PRINT 
  297. 3470  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  298. 3480  PRINT 
  299. 3490  INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  300. 3500  PRINT 
  301. 3510  INPUT "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P
  302. 3520  PRINT 
  303. 3530  PRINT "ENTER THE LAST PAYMENT MADE ,"
  304. 3540  INPUT "          (PAYMENT #, YEAR # )";N1,Y
  305. 3550  PRINT : PRINT "WORKING ON PROBLEM"
  306. 3560  I = I / 100
  307. 3570  BO = P
  308. 3580  FOR J1% = 1 TO N * (Y - 1) + N1
  309. 3590  I1 =  INT ((BO * I / N) * 100 + .5) / 100
  310. 3600  A = R - I1
  311. 3610  BO = BO - A
  312. 3620  NEXT J1%
  313. 3630  PRINT : PRINT "THE REMAINING BALANCE IS $"; INT (BO * 100 + .5) / 100
  314. 3640  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  315. 3650  IF   LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3410
  316. 3660  GOTO 40
  317. 3670  gosub 4500
  318. 3680  PRINT  TAB( 10)"THE TERM OF A LOAN"
  319. 3690  PRINT 
  320. 3710  INPUT "ENTER THE NUMBER OF PAYMENTS EACH YEAR";N
  321. 3720  PRINT 
  322. 3730  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  323. 3740  PRINT 
  324. 3750  INPUT "WHAT IS THE AMOUNT OLOG (1 - (P * (I / 100)) / (N * R)) / ( LOG (1 + I / 100 / N) * N))
  325. 3800  PRINT "A TERM OF"; INT (Y * 10 + .5) / 10;"YEARS WILL SATISFY THIS LOAN."
  326. 3810  PRINT "SATISFY THIS SCHEDULE."
  327. 3820  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  328. 3830  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3670
  329. 3840  GOTO 40
  330. 3850  gosub 4500
  331. 3860  PRINT "#19  THE ANNUAL INTEREST RATE ON A LOAN"
  332. 3880  PRINT "  ******** UNDER CONSTRUCTION ********"
  333. 3890  FOR I = 1 TO 2000: NEXT I
  334. 3900  GOTO 40
  335. 3910  gosub 4500
  336. 3920  PRINT "                         THE MORTGAGE AMORTIZATION TABLE"
  337. 3930  PRINT 
  338. 3940  PRINT "                           COMPUTE INTEREST PAYMENTS..."
  339. 3950  PRINT 
  340. 3980  REM  LEADING & TRAILING ZERO'S NOT ?"ED"
  341. 3990  C = 0
  342. 4000  INPUT "Enter Amount of Loan";A
  343. 4010  INPUT "Amount of Interest in Percent";J
  344. 4020  INPUT "Nunber of Years";N
  345. 4030  J = J / 100
  346. 4040  N = N * 12:I = J / 12:B = 1 + I:R = A * I / (1 - 1 / B ^ N)
  347. 4050  PRINT "Amount per Payment =";:? USING"$$,###,###.##";R
  348. 4060  Q = (R * N - A)
  349. 4080  PRINT "Total Interest=";:? USING"$$,###,###.##";Q
  350. 4090  PRINT "To Begin Listing Hit Any Key...":F=0
  351. 4100  A$=input$ (1)
  352. 4110  IF A$="" THEN 4100
  353. 4120  PRINT :B = A
  354. 4130  GOSUB 4370
  355. 4140  PRINT "PMT     INTEREST    PRINCIPAL      BALANCE"
  356. 4150  C = C + 1:L = B * I:P = R - L:B = B - P:IF B<0 THEN B=0
  357. 4160  PRINT USING"###";C;:PRINT USING"$$,###,###.##";L;P;B
  358. 4170  F = F + 1
  359. 4180  IF F = 14 THEN 4280
  360. 4190  IF N>C THEN 4150
  361. 4200  D=R+B
  362. 4230  PRINT "Last Payment was...";:? USING"$$,###,###.##";D
  363. 4240  INPUT "Do You Want to Run Another (Y/N)";Y$
  364. 4250  IF  LEFT$ (Y$,1) = "Y" THEN 3910 ELSE 40
  365. 4280  PRINT"TO CONTINUE STRIKE ANY KEY, ESC TO STOP"
  366. 4290  A$=input$(1) : IF A$="" THEN 4290
  367. 4300  IF A$=CHR$(27) THEN GOSUB 4370: GOTO 4240
  368. 4310  PRINT 
  369. 4320  F = 0
  370. 4330  GOSUB 4370
  371. 4340  GOTO 4140
  372. 4370  clearw 2:gotoxy 0,0:return
  373. 4380  clearw 2:gotoxy 0,0:RETURN
  374. 4390  REM 
  375. 4500  CLEARW 2:GOTOXY 0,0:RETURN
  376. 4510  RETURN
  377. 4999  STOP
  378. 5000  CLEARW 2:GOTOXY 39,12:PRINT"Bye":END
  379. 8880  A=((T / P) ^ (1 / Y) - 1) * 100
  380. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə